﻿Public Class formipregedit

    Private Sub btnregedit_Click(sender As Object, e As EventArgs) Handles btnipregedit.Click
        Dim ruta As String
        Dim parametros As String

        lbnerror.Text = ""
        ruta = "c:\program files\TechTools\remote_regedit.exe"
        parametros = textipregedit.Text
        If My.Computer.Network.Ping(parametros) = True Then
            Shell(ruta & " " & parametros, vbNormalFocus)

        Else
            lbnerror.Text = "IP Address is shutdown or Incorrect"
            Return

        End If

        textipregedit.Clear()
        Me.Close()
    End Sub

    Private Sub formipregedit_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class